(Fclrhash): Return TABLE.

diff --git a/src/fns.c b/src/fns.c
index 3f3cdccc36dcc99fa3a2a7f37c235038ed668c73..5df8be238dff0c3a449cda60a2a48a91daff661f 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -5406,12 +5406,13 @@ DEFUN ("hash-table-p", Fhash_table_p, Shash_table_p, 1, 1, 0,
 
 
 DEFUN ("clrhash", Fclrhash, Sclrhash, 1, 1, 0,
-       doc: /* Clear hash table TABLE.  */)
+       doc: /* Clear hash table TABLE and return it.  */)
      (table)
      Lisp_Object table;
 {
   hash_clear (check_hash_table (table));
-  return Qnil;
+  /* Be compatible with XEmacs.  */
+  return table;
 }